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if-se0-1984 99:90:73 «—NSkgumgmasten: Fear ssecapR750.For:1 2%! 


Subroutine D0R750 (Lun) 


1 
C 
7 : Version: *v04-000" 
5 OPPS R SESSILIS TIT IT TTT TTT TTT TTT rrr ricci icc icici ic icici iii iii iiiiicy 
Ce s 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0008 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
sshd > ALL RIGHTS RESERVED. * 
® 
tk C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bote C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pote : TRANSFERRED. * 
aw 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Boge Fs CORPORATION. * 
* 
O0e¢ C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS cs 
002 C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0024 Ce * 
0025 Ce * 
goss RRR Ret Reese noe Soe ar ee pate ease ET En oa eiragEY ee 
0028 C 
94 C 
oss : Author: Sharon Reynolds Creation date: 21-July-1981 
OO3s : Functional Description: 
0034 C This module decodes and outputs the error information for the 
0035 C DR750. 
0036 C 
sit TA : Modified by: 
0039 C v03-004 SARO219 Sharon A. Reynolds. 28-Mar-1984 
nk : Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 
BOe6 C v03-003 SARO111 Sharon A. Reynolds, 23-Jun-1983 
004 C Changed the carriage control in the ‘format’ statements 
004s 3 for use with ERF. 
6 C v03-002 SARO039 Sharon A. Reynolds, 8-Jun-1983 
Ooes : Removed brief/cryptic support. 
9 C v03-001 BP0001 Brian Porter, 20-AUG-1982 
50 C Minor edit. 
51 Cee 
54 Include ‘SRC$:DR32COM.FOR /NOLIST’ 
105 Include *SRC$:DEVERR.FOR /NOLIST' 
eee Include *SRC$:MSGHDR.FOR /NOLIST' 
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DR750 16-Sep-1984 :00:5 VAX=-11 FORTRAN V3.4=-56 P 
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4 Byte lun 00t 
o8 Integer4 dr_der 09 
$ Integers4 dr_uti 
0 Integer*4 dr_wcs_adr 
71 Integere4 dr_wecs_dat 
ue Integer*4 dr-cmi_adr Of 
7 Integers4 dr_cmi_ber 
74 Integer*4 dr-di_Ber 00( 
75 Integere4 dr-ds 00" 
16 Integers4 dr-sbr 00° 
7 Integer*4 dr—gbr 89. 
78 Integers4 dr_cb(1:3) : 
79 Integere4 dr-bb(1:3) 00° 
3 o Integer*4 dr—gpr (0:22) 8. 
9 Be Integer4 silo_byte_cnt 00' 
8 Integere4 compressf 00° 
9 84 Integere4 compressc 00° 
285 Integer*4 compressé 00; 
0286 Integer*4 field 00; 
O68? Integer *4 field! So! 
4 
0688 Real float oo! 
4 
0391 Parameter dr_750 = 48 oo! 
4 
0 38 Character*24 dr_deri(11:12) 00; 
0294 Character*17 dr_der 13:69) 00; 
0295 Character*32 dr_dcer3(22:31) 00: 
0296 Character*24 bus_ func (0:7) 00: 
0998 c 00: 
0099 C Make the necessary information in the error log buffer available 00: 
9300 ¢ to this module. boi 
4 Equivalence (dr_dcr, EMBSL_DV_REGSAV(0)) 00! 
0 Equivalence (dr_utl,EMBSL_DV_REGSAV(1)) 00: 
0304 Equivalence (dr-wes_adr,EMBSC_DV_REGSAV(2)) 00: 
Bene Equivalence (dr_wes_dat,EMBSL_DV_REGSAV(3)) 004 
309 Equivalence (dr_cmi_adr,EMBSL_DV_REGSAV(5)) 00 
Equivalence (dr_cmi_bcr,EMBSL_DV_REGSAV(6)) 00 
Equivalence (de=di_Ber EBS. _DV REGSAV(7)) 00 
Equivalence (dr=dsT, EMS L_DV-REGSAV(8)) 00: 
10 Equivalence (dr_sbr,EMBSL_DV_REGSAV(9)) 00 
11 Equivalence (dr_gbr $L_DV_REGSAV(10)) 9 
1g Equivalence (dr=cb, EMBSL_BV_REGSAV(11)) 
1 Equivalence (dr_bb, EMBSL_DV_REGSAV(14)) 00. 
3 Equivalence (dr-gpr,EMBSC_DV_REGSAV(17)) | 80 
1 00' 
13 Data dr_deri(11) /*DATA_ INTERCONNECT STALL*'/ | 
18 Data dr_deri(12) /* JAM" / 
0 ! 
3 Data gr decrees} /*NO CMI RESPONSE*'/ | Bt 
ata r_der 
2 Dat dr_der2 (15) /*RDS ERROR*'/ | \ 
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pete dr_der £18) tg ERROR®'/ 
Bate ar=der (18) /*DCR ABORT®/ 
Date dr_dere(19) /*PACKET INTERRUPT®'/ 
Data dr_der2(20) /* INTERRUPT ENABLE®'/ 
Data dr _der3(22) /*POWER UP®'/ 
Data dr_der3(235) /*POWER DOWN®'/ 
Data dr_der3(24) /*EXTERNAL ABORT*'/ 
Data dr_der3(25) /*FORCE Cl PARITY ERROR*'/ 
Data dr_der3( $ /"FORCE DI PARITY ERROR®'/ 
Data dr_der3(27) /"ENABLE DI PARITY ERROR ABORT*'/ 
Data dr_der3( 2 /*LOCAL PARITY ERROR*'/ 
Data dr_der3(29) /*CI PARITY ERROR*'/ 
Data dr_dcer3(30) /*DI_ PARITY ERROR*'/ 
Data dr_der5(31) /"PARITY ERROR*'/ 
Data bus_ func (0) /*READ®*/ 
Data bus_ func (1) /*READ LOCK®'/ 
Data ye eed /"ILLEGAL FUNCTION®'/ 
pace purcrunecg} /ogkbbea,fUMeTION 7 
us_ func 
Data bus_ func (5) /*WRITE UNLOCK®'/ 
Data pus. tune 53: /*WRITE VECTOR*'/ 
Data bus_ func (7) /"ILLEGAL FUNCTION®'/ 


Force a top of form to occur and construct the report header. 


Call FRCTOF (lun) 
Call DHEAD1 (Lun, *DR32") 


Decode and output the DR750 Control Register. 
Cail LINCHK (Lun,2) 

Write (lun,20) dr der 

Format (/* ',18,'°BR DCR',124,28.8) 

Field = LIBSEXTZV (0,8,dr_dcr) 


Call LINCHK (Lun,1) 
If (field .ne. dr_750) then 


Write (Lun, 25) 

Format (* *,140,*ADAPTER NOT DR750') 

Else 

Write (Lun, 30) 

Format ( -140,"ADAPTER IS DR750°) 

Endif 

Call OUTPUT (lun,dr_der,dr_derl,11,11,12,'°0") 


Call OUTPUT (Lun.dr_der.dr_der2,14,14,20,'0") 
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Call OUTPUT (Lun,dr_der,dr_der3,22,22,31,'0') 


Decode and output the DR750 Utility Register. 
Call LINCHK (Llun,1) 

Write (Lun 40) dr_utl 

Format (' *,178,'DR UTL',124,28.8) 


Field = LIBSEXTZV (0,8,dr_utl) 


See DR780 Listing for explanation of speed calculation. 


If (field .le. ‘FB'X) then 

Field = JIDIM (256, field) 

Float = FLOATJ( field) 

float = 40/float 

float = (1024*1024) / ((float*1024*1024)/4) 
Call LINCHK (Lun,2) 

Write (lun,45) float 

Format (' T40,°PERIOD = . 

1 F<COMPRESSF (float,1)>.1,°. MICRO/SEC") 
Float = FLOATJ( field) 

float = (40/float)*1024 

Write (Lun, 50) float 

Format (' *,140,"TRANSFER = ‘, 

1 F<COMPRESSF (float,2)>.2,". KB/SEC') 
Endif 

Field = LIBSEXTZV (11,1,dr_utl) 


Call LINCHK (Lun,1) 
If (field .eq. 15 then 


Write (Lun, 60) 
cornet (* *,140,"MICRO-CODE LOADED AND VALID‘) 


Endif 

Field = LIBSEXTZV (8,3,dr_utl) 

Field! = Ufasextzy Ci3s ear wet) 

Call LIBSINSV (field,0,3,silo_byte_cnt) 

Call LIBSINSY (field!,$,4,sild_byté_cnt) 
Lt (lun,2 
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16-Sep-1984 :00:5 
g-Se0-1984 90:90:73 
Write (lun,70) silo_byt t 

Format (ee Teo! ico’ avr "COUNT e.%. 

1 i<compress4 (silo_b >."-" 


Output the DR750 WCS Registers. 
Call LINCHK (Llun,2) 

Write (Lun 80) dr wes adr 

Format ( T8,'OR wes 126 ,28.8./, 
1 140,"WCS ADDRESS REGISTER 

Call LINCHK (Llun,2) 
Format (ht eTB, SR Wess 426 ,78.8,/ 

or ” . e * 

1°140,"WCS BATA REGISTER") 

Decode and output the DR750 CMI] Address Register. 
Call LINCHK (lun,1) 
Write (Lun,100) Gr cai -ogr 

Format (' °,18,'DR BA’',124,278.8) 

This is the CMI address 


Field = LIBSEXTZV (0,24,dr_cmi_adr) 


Clear bits 0:1 of the CMI address 
Call LIBSINSV (0,0,2, field) 
Call LINCHK (Lun,1) 


Write (lun,105) field 
sorast (* ",140,"LONGWORD ADDRESS (HEX) = ', 


This is the CMI bus function. 

Field = LIBSEXTZV (25,3,dr_cmi_adr) 
Call LINCHK (Lun,1) 

Write (lun,110) bus func (field) 

F 140,°CMT BUS FUNCTION = ', 
1 A<COMPRESSC (bus_func(field))> ) 


This is the Byte mask (the dr750 will always read 32 bits (longwords) 
but can mask which bytes to write). 


Field = LIBSEXTZV (28,4,dr_cmi_adr) 
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95 C 
ef 
38 C 
Be 
5 
160 
sh 
10 C 
Af : 
18 
2\3 170 
t 
S18 
5 
2 1 
$24 
524 175 
2 5 
336 
528 
5 
5 
3 1 
se 
5 180 
535 
5 
5 185 
5 
$33 
541 
a 
45 
Hs 
58 


Decode and output the DR750 CMI Byte Count Register and the Data 
Interconnect Byte Count Register. 


Call ge un,2) 
Write ( tun ,1 " dr_cmi_b bgr 
fore t ¢ ‘ORB Bc! 4,28.8./, 
."Cml BYTE COUNT'S 
Call LINCHK ( une) 
Write (Lun, 160) ae di 


Format (* *,18,'DR'BC* 


ber 
1 140, "DATA INTERCONNEC 


C 
124,78.8,/, 
T Byte COUNT") 
Decode and output the DR750 Status Longword 
Call LINCHK (Lun,1) 
Write “hyng tf ) dr_dsl 
Format (' »"DR-DSL*,124,28.8) 
Call OUTPUT (Lun,dr_dsl,Vidr_sl,0,0,14,'0") 
Field = LIBSEXTZV (16,8,dr_dsl) 
If (field .ne. 0) then 
Call LINCHK (Lun 3), 
Write (lun,175) (**, 1 = 0.32) 
Format (* *,140, 33A1. /,147,'FAR-END STATUS BYTE',/) 
Do 185, I = 0,4 
Field] = LIBSEXTZV (1,1, field) 
If (field! .ne. 0) then 
Call LINCHK than 1) 
Write (Lun, rf 
Format (° °,140,*FAR-END DEVICE STATUS BIT °,11,". SET") 
Endif 
Cont inue 
Call OUTPUT (Lun,dr_dsl,V2dr_sl,21,21,25,'0") 
Call LINCHK (Lun,1 


write (lun, 190) {tee 1 = 0,32) 


Output the DR750 System Base Register 


Call LINCHK (Lun,2) 
Write (lun,200) ér_ sbr 
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581 
sh 
2e7 250 
ORs 
0586 
ie 
589 260 
590 
Ban 
i 
a 
mS 
598 
599 
280 
1 
290 
5 


124,78. 


Format (" ',T8,"DR SBR’ 8,/ 
8."DR SYSTEM BASE REG (PHY ADDR) ") 


1 14 
Output the DR750 Global Base Register 
Call LINCHK (lun,2) 
Write (lun,.210) dr_gbr 
Format (° ',18,"DRGBR',124,78.8,/ 

1 140,"DR GLOBAL BASE REG (VIRT ADOR)*) 
Output the 0R750 Command Block Information 
Call LINCHK (lun,3) 

Write (Lun, 22 
Format (/' *,"DR CURRENT COMMAND BLOCK',/) 
Do 240 I = 1,3 
Call LINCHK (lun,2) 
Write (lun,230) fdr cb(I 
Format (° §,18,"DR CB',11 
1 T40,A<COMPRESSC (vidr_c 


Continue 


Output the DR750 Buffer Block Information 
Call LINCHK (Lun,3) 

Write (lun, 

Format (/° *,'DR CURRENT BUFFER BLOCK',/) 
Do 270 I = 1,3 


Call LINCHK (lun,2) 


Write (lun,260) [,dr_bb(1),vidr_bb(1) 
Format (' '.18,"DR BB',11 34 28.8,/, 
1 T40,A<COMPRESSC (vidr_bb(1)5>) 


Cont inue 
Output the remaining portion of the WCS contents 


Call LINCHK (Lun,3) 
Write (Lun, 
Format (/* *,'DR GENERAL PURPOSE REGISTERS',/) 


Call LINCHK (Lun,2) 

Write (Lun, 2 ) gr apr (0) 

Format ( 18, "DR *124.78.8,/, 
1 140,"VIRTUAL ADDRESS") 


Call LINCHK (Lun,2) 
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Call LINCHK Lun 2) 
Write (Lun, 335) ‘ eld 
335 Format (‘ T8, "DR R9*,124,724.4,/ 
1 140, ADDRESS OF CURRENT BUFFERS 
Field = LIBSEXTZV (16,16,dr_gpr(9)) 
Call LINCHK (Lun 2) 
Write (lun,340) field 
340 Format (124,24.4,/,140, "CURRENT BUFFER STATE") 
Field = LIBSEXTZV (0,16,dr_gpr(10)) 


Call LINCHK (lun,2) 
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DR750 igege -1984 00:00:5 VAX-11 FORTRAN V3.4-56 Pp DR: 
~Eeen RRs R80: TF PEE RRERAN YB st-36 spazso.ron:1 ome 8 
Write (lun,295) dr_gpr(1 
09 295 Forman (hte Ta. sORoRES 134,,78.8,/, 03 
10 1 140,"PHYSICAL ADDRESS’) ied 
\¢ Field = LIBSEXTZV (0,16,dr_gpr(2)) Bi 
14 Call LINCHK, (tun,2) 03 
9615 Write (Lun,300) f elg 2; 
1 300 Format (° °.T8,'DR R2',124,24.4,/, 5! 
0617 1 140,"DEVICE STATUS REGISTER’) Bat 
0836 Field = LIBSEXTZV (16,16,dr_gpr(2)) ba 
1 Call LINCHK Lun 2) 05 
06 : Write (lun,305) field O5¢ 
06 ; 305 Format (124,24.4,/,140, "AREG') ox 
0625 Call LINCHK (Lun,2) 05¢ 
0626 Write (lun,310) dr _gpr(3) 05 
0627 39-3310 Format (* ',18,"DR7R3',124,28.8,/ 05) 
o698 1 140,"CONTROL INTERCONNECT STATUS") Be! 
0630 Call LINCHK (Lun,2) 05; 
0631 Write (lun,315) dr_gpr (4) 05: 
0632 315 Format (* °,18,"DR7R4',124,78.8./, 05; 
0655 1 140, BUFFER ADDRESS'S Bi 
0635 Call LINCHK (Lun,2) 05; 
0636 write (Lun,320) dr _gpr(s) 03: 
0637 320 Format (' 8,' * 126,28.8,/, 05% 
0638 1 140,"RETURN ADDRESS, TRUE TEST RESULT") O3t 
0640 Call LINCHK (lun,6) 05! 
0641 Do 330, 1 = 6,8 Bat 
ek: Write (lun,325) I,dr gpr(1) 05: 
0644 325 Format (' °,18,"DR R*,11,124,28.8./, 05! 
0645 1 140,"GENERAL PURPOSE REGISTER’) Ot 
bee$ 330 Continue 05‘ 
0648 05< 
0649 Field = LIBSEXTZV (0,16,dr_gpr(9)) rf 
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rhe a xi Wee fie ig. 126.76 
1140, “ADDRESS oF RAEXY "gurrERSS 
Field = LIBSEXTZV (16,16,dr_gpr(10)) 


Call — (Lun 
Write (lun,350) ig 


4,/, 


Format (124,24.4,/ "tho, "NEXT BUFFER STATUS") 


Field = LIBSEXTZV (0,16,dr_gpr(11)) 
Call — 33) 4 
fiel 


— Lun, 35 
(* TB) pr 126,24.4,/, 
‘ ora. ye f OF FREE "gurree® j 


Field = LIBSEXTZV(16,16,dr_gpr(11)) 


Call nity (lun Ps 
Write (lun,360) fie 


Format Th 14.4,/, “Heo. "FREE BUFFER STATUS") 


Cali LINCHK (Llun,2) 


Write (Lun, ni i or. rape 
sorast, < (' 
1 140," Caalesen’ OF D 


Call LiacHn (lun,2) 
Write ( “hyn, 57?) dr_ pct! 
rorest. i 4 R- 

1 140, ‘CONTROL’ INTERCONN 


Call LINCHK (lun,2) 

Write Sign, 572), dr p-ger ("0 

Format (" °,78,"DR R14',124,78.8,/, 
1 T40,"CONTROL INTERCONNECT VA‘) 


Call LINCHK (Llun,2) 


ae 


Write (lun, 380) dr_ r(15) 
rorast (* ., *,124,28.8,/, 
1 140, South” INTERCONNECT PA‘) 
Call L sack (lun,2) 
prvse « Lun, i ) be 
Format 6°,124,28.8,/, 


(' 
1 rast to “AAgR 
Call LINCHK sat 22) 


Fornge, (fr 359 ) dr_ -per' ottz) 


Call LINCHK fhun. 2) 
Write “hyn .8 r-Aer r(18) 
Format ( "DR'RI8',124,728.8,/, 


RAN ite 4-56 
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Freee aes 8: 8eits PES MGORS TON: PERE scecapR750.FoR;1 29 

oF ¢ 1 T40,"LAST VALUE LOADED, DI BYTE COUNT’) 
0724 Call LINCHK (Lun,2) 
0725 Write (Lun 40 ) Grape (19) 
0726 405 roreat ( -18,'DR R1I9°,124,28.8,/, 
of i 1 T40,"LAST VALUE LOADED, CM] BYTE COUNT’) 
4 a Call LINCHK (Lun,2) 

730 Write (Lun,410) arg r(20) 
0731 410 Format (' *,T8,'DR *,124,78.8,/ 
07 : 1 140,*CONTROL INTERCONNECT DATA WORD") 
$f 4 Call LINCHK iyn.e) 
0735 Write (Lun ,41 ) gr gor (21) 
0736 415 Format (' ',18,'DR 1" ,124,28.8./, 
0737 1 T40,"CONTROL INTERCONNECT DATA') 
0739 Call LINCHK (Lun,2) 
0740 Write (Lun, 420) dr_ gr (ee) 
0741 420 Format (° *,T8,'DR R22°,124,78.8,/, 
074 1 T40,"CONTROL INTERCONNECT INFORMATION’) 
0744 call Linchk (lun,1) 
0745 
0746 write(lun,425) 
2584 425 format(' °,:) 
Ore8 call orb$l_owner (lun,emb$l_dv_ownuic) 
O73) call ucb$l_char (Llun,emb$l_dv_char) 
Orez call ucb$w_sts (lun,emb$w_dv_sts) 
Oree call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
tat call ucb$w_errcnt (lLun,emb$w_dv_errcnt) 
O28 if Cemb$w_hd_entry .ne. 98) then 
0761 call Linchk (lun,1) 
B76 
ore? write(lun,425) 
#4 call xfdriver_qio (lun,emb$w_dv_ func) 

| 

344 call irp$w_bent (lun,emb$w_dv_bcnt) . 
3768 call irp$w_boff (Lun,emb$w_dv_boff) 
O77 call irp$l_pid (Lun,emb$l_dv_raqpid) : 
077 call irp$q_iosb (lun,emb$l_dv_iosb1) ? 

774 endif 7? 

775 7 
0776 Return 7 
0777 End : 

} ‘ 


DR750 


ENTRY POINTS 
Address 
0-00000000 


VARIABLES 
Address 


ARRAYS 


2 
4 
; 
4 


PROGRAM SECTIONS 


Type 


Address Type 
coe 


Total Space Allocated 


Name 
DR750 


Name 
DR_CMI_ADR 


EMBSW_HD_ ENTRY 
ELD 


FLOAT 
LUN 


BUS_FUNC 
R_6B 


Attributes 


Address 


Ooooooooooooooocoo 
FWD ONMWIW PON Wet 


i$ $eo-1984 90:00:58 


RD NOWRT 


RD WRT 
RD WRT 


Type Name 


1*4 DR_CMI_BCR 
“D1_BCR 
1*4 DR_GBR 


N 
EMBS$W-HD_ERRSEQ 
FIELDT 


1*4 
I*4 SILO_BYTE_CNT 


Dimensions 


RD NOWRT 
RD WRI L 


VAX-11 FORTRAN tz -4-56 Page 11 
DI SKSVMSMASTER: ERF .SRCJDR750.FOR;1 


LONG 


4 
z 


oO 
~ 


NNNNNNNNNNNNNN 


polo lololololololololololo) 


PRI 


3.4-56 


DISKSVMSMASTER: CERF .RCIDR750. FOR: 1 


VAX=11 FORTRAN 


Sep-198e 13:95:17 


é 10 
16- 


DR750 


or - 
-wvT 7m 
oO rN 
we =o 
Sl tT eel 
oojwnmmor 
ee ee ee ee ee ee 
MOGDMOMNO 
—NM OOwTO 
wa La] 


LABELS 


Label Address Label Address’ Label Address’ Label Address Label Address’ Label 


Address 


SOoQooooo°oeo 
eeoeeveeveuert 


i ce ee ee oe oe 


eeeeeeee 
= ONOOMUMNoO 
MORO vr 
eK CUP 


VvorwFOvur Ow 


Sees aateih canis aa neeet eet ana eee 


-s 
- + OOOCOOoOOoOM 


es = OOOMUNS 
COOOOOOMOO 
MIB —— CUCU ~T 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


Type Name Type Name 


Type Name 


Type Name 


Type Name 


IRPSL_PID 
R 


LINCH 
UCBS$W_STS 


UCBS$W_ERRCNT 


FRCTOF 
LIBSINSV 


UCBS$L_OPCNT 


DHEAD1 
I*4 LIBSEXTZV 


IRP$W_BOFF 
“CHAR 


I*4 COMPRESSF 
UCBSL 


I*4 COMPRESSC 
IRP$W_BCNT 
OUTPUT 


ORBS$L_ OWNER 


XFDRIVER_Q1O 


I1*4 COMPRESS4 


era seb- lobe 99:99:79 + bTScbumshasten: Fear seecaor7s0.ror:1 2%" 13 


COMMAND QUALIFIERS 


Sssssss 


FORTRAN /LIS=L1S$:0R750/0B8J=0BJ$:DR750 MSRC$:DR750 


/CHECK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUGs (NOS YRBOL § TRACEBACK) 


R TAX NOSOURCE 
/SHOW= (NOPREPROCESSOR, INELODE, RA 


/F77 =/NOG_FLOATING 714 /0P ine? /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 9.31 seconds 
Elapsed Time: $e 52 seconds 
Page Faults: 62 

Dynamic Memory: 251 pages 


MMP MNPNrnn 


Wroronrrrnrrnrnnn 


. 
ea 
| res ak ees acc 


0 
0 
o 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


WANG 


PMENT CORPORATION 
.AND PROPRIETARY 


AH-BT13A-SE 


0147 
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